home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Frameworks / TransSkel 3.18 / Source / Control Stuff / SkelToggleCtlValue.c < prev   
Encoding:
C/C++ Source or Header  |  1994-02-20  |  241 b   |  17 lines  |  [TEXT/KAHL]
  1. /*
  2.  * Toggle value of control, return resulting value.
  3.  */
  4.  
  5. # include    "TransSkel.h"
  6.  
  7.  
  8. pascal short
  9. SkelToggleCtlValue (ControlHandle ctrl)
  10. {
  11. short    value;
  12.  
  13.     value = (GetCtlValue (ctrl) ? 0 : 1);
  14.     SetCtlValue (ctrl, value);
  15.     return (value);
  16. }
  17.